/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.09 Sep 86.sit / 02.09 Sep 86 / PAPDriver source / PAPIntfc / PAPIntfc.asm

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0c 50 41 50 49 6e 74 | 66 63 2e 61 73 6d 00 00 |..PAPInt|fc.asm..|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4b 41 48 | 4c 01 00 00 00 00 00 00 |.TEXTKAH|L.......|
|00000050| 00 00 00 00 00 16 83 00 | 00 01 7c 9b 45 96 4d 9b |........|..|.E.M.|
|00000060| 45 96 4d 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |E.M.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 48 86 00 00 |........|....H...|
|00000080| 3b 2b 0d 3b 09 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;+.;.***|********|
|00000090| 2a 2a 2a 2a 2a 0d 3b 09 | 2a 20 50 41 50 49 6e 74 |*****.;.|* PAPInt|
|000000a0| 66 63 2e 61 73 6d 20 2a | 0d 3b 09 2a 2a 2a 2a 2a |fc.asm *|.;.*****|
|000000b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 3b 0d 3b 20 |********|***.;.; |
|000000c0| 4c 6f 77 20 6c 65 76 65 | 6c 20 69 6e 74 65 72 66 |Low leve|l interf|
|000000d0| 61 63 65 20 74 6f 20 74 | 68 65 20 50 41 50 20 6d |ace to t|he PAP m|
|000000e0| 61 6e 61 67 65 72 20 66 | 6f 72 20 4c 69 67 68 74 |anager f|or Light|
|000000f0| 53 70 65 65 64 20 43 20 | 61 6e 64 20 61 6e 79 6f |Speed C |and anyo|
|00000100| 6e 65 0d 3b 20 65 6c 73 | 65 20 77 68 6f 20 75 73 |ne.; els|e who us|
|00000110| 65 73 20 4d 61 63 2f 4c | 69 73 61 20 73 74 61 6e |es Mac/L|isa stan|
|00000120| 64 61 72 64 20 50 61 73 | 63 61 6c 20 63 61 6c 6c |dard Pas|cal call|
|00000130| 69 6e 67 20 65 6e 76 69 | 72 6f 6e 6d 65 6e 74 2e |ing envi|ronment.|
|00000140| 0d 3b 0d 3b 20 4e 4f 54 | 45 3a 09 54 68 65 20 6e |.;.; NOT|E:.The n|
|00000150| 61 6d 65 20 27 4c 61 73 | 65 72 57 72 69 74 65 72 |ame 'Las|erWriter|
|00000160| 27 20 69 73 20 61 73 73 | 75 6d 65 64 20 68 65 72 |' is ass|umed her|
|00000170| 65 2e 20 54 68 65 20 6e | 61 6d 65 20 6f 66 20 74 |e. The n|ame of t|
|00000180| 68 65 20 72 65 73 6f 75 | 72 63 65 0d 3b 09 66 69 |he resou|rce.;.fi|
|00000190| 6c 65 20 63 61 6e 20 62 | 65 20 64 69 66 66 65 72 |le can b|e differ|
|000001a0| 65 6e 74 2e 20 20 53 68 | 6f 75 6c 64 20 6c 6f 6f |ent.  Sh|ould loo|
|000001b0| 6b 20 61 74 20 74 68 65 | 20 53 54 52 20 72 65 73 |k at the| STR res|
|000001c0| 6f 75 72 63 65 20 69 6e | 20 74 68 65 0d 3b 09 53 |ource in| the.;.S|
|000001d0| 79 73 74 65 6d 20 66 69 | 6c 65 20 74 68 61 74 20 |ystem fi|le that |
|000001e0| 68 6f 6c 64 73 20 74 68 | 65 20 6e 61 6d 65 20 6f |holds th|e name o|
|000001f0| 66 20 74 68 65 20 63 75 | 72 72 65 6e 74 6c 79 20 |f the cu|rrently |
|00000200| 73 65 6c 65 63 74 65 64 | 20 70 72 69 6e 74 65 72 |selected| printer|
|00000210| 0d 3b 09 74 79 70 65 2c | 20 65 74 63 2e 0d 3b 0d |.;.type,| etc..;.|
|00000220| 3b 20 4e 4f 54 45 3a 09 | 55 73 65 73 20 6e 65 77 |; NOTE:.|Uses new|
|00000230| 20 61 73 73 65 6d 62 6c | 65 72 20 65 71 75 61 74 | assembl|er equat|
|00000240| 65 73 20 26 20 44 20 66 | 69 6c 65 73 20 66 72 6f |es & D f|iles fro|
|00000250| 6d 20 4a 75 6e 65 20 31 | 39 38 36 20 53 6f 66 74 |m June 1|986 Soft|
|00000260| 77 61 72 65 20 53 75 70 | 70 6c 65 6d 65 6e 74 0d |ware Sup|plement.|
|00000270| 3b 0d 3b 20 57 72 69 74 | 74 65 6e 20 62 79 3a 0d |;.; Writ|ten by:.|
|00000280| 3b 09 42 6f 62 20 44 65 | 6e 6e 79 0d 3b 09 41 6c |;.Bob De|nny.;.Al|
|00000290| 69 73 61 20 53 79 73 74 | 65 6d 73 2c 20 49 6e 63 |isa Syst|ems, Inc|
|000002a0| 2e 0d 3b 09 4a 75 6c 79 | 2c 20 31 39 38 36 0d 3b |..;.July|, 1986.;|
|000002b0| 0d 3b 2d 0d 0d 09 49 6e | 63 6c 75 64 65 09 54 72 |.;-...In|clude.Tr|
|000002c0| 61 70 73 2e 44 0d 09 49 | 6e 63 6c 75 64 65 09 53 |aps.D..I|nclude.S|
|000002d0| 79 73 45 71 75 2e 44 0d | 09 49 6e 63 6c 75 64 65 |ysEqu.D.|.Include|
|000002e0| 09 46 53 45 71 75 2e 44 | 0d 3b 0d 3b 20 46 6f 6c |.FSEqu.D|.;.; Fol|
|000002f0| 6c 6f 77 69 6e 67 20 68 | 61 73 20 62 65 65 6e 20 |lowing h|as been |
|00000300| 77 72 6f 6e 67 20 69 6e | 20 65 71 75 61 74 65 73 |wrong in| equates|
|00000310| 20 66 6f 72 65 76 65 72 | 0d 3b 0d 69 6f 4e 61 6d | forever|.;.ioNam|
|00000320| 65 50 74 72 09 65 71 75 | 09 69 6f 46 69 6c 65 4e |ePtr.equ|.ioFileN|
|00000330| 61 6d 65 0d 0d 3b 0d 3b | 20 50 72 69 76 61 74 65 |ame..;.;| Private|
|00000340| 20 6c 6f 63 61 6c 20 73 | 74 6f 72 61 67 65 2e 20 | local s|torage. |
|00000350| 4c 69 76 65 73 20 64 75 | 72 69 6e 67 20 74 68 65 |Lives du|ring the|
|00000360| 20 74 69 6d 65 20 74 68 | 65 20 64 72 69 76 65 72 | time th|e driver|
|00000370| 20 69 73 20 6f 70 65 6e | 2e 0d 3b 0d 3b 20 2a 2a | is open|..;.; **|
|00000380| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000390| 2a 2a 2a 0d 3b 20 2a 2a | 2a 20 57 20 41 20 52 20 |***.; **|* W A R |
|000003a0| 4e 20 49 20 4e 20 47 20 | 2a 2a 2a 0d 3b 20 2a 2a |N I N G |***.; **|
|000003b0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000003c0| 2a 2a 2a 0d 3b 0d 3b 20 | 53 74 61 74 69 63 20 64 |***.;.; |Static d|
|000003d0| 61 74 61 20 68 65 72 65 | 20 72 65 71 75 69 72 65 |ata here| require|
|000003e0| 73 20 64 4e 65 65 64 4c | 6f 63 6b 20 62 69 74 20 |s dNeedL|ock bit |
|000003f0| 73 65 74 20 69 6e 20 64 | 72 69 76 65 72 2e 20 59 |set in d|river. Y|
|00000400| 6f 75 20 63 61 6e 20 0d | 3b 20 63 68 61 6e 67 65 |ou can .|; change|
|00000410| 20 74 68 69 73 20 62 79 | 20 61 6c 6c 6f 63 61 74 | this by| allocat|
|00000420| 69 6e 67 20 73 70 61 63 | 65 20 26 20 73 74 6f 72 |ing spac|e & stor|
|00000430| 69 6e 67 20 74 68 65 20 | 68 61 6e 64 6c 65 20 69 |ing the |handle i|
|00000440| 6e 20 64 43 74 6c 56 61 | 72 73 2e 0d 3b 0d 09 0d |n dCtlVa|rs..;...|
|00000450| 70 61 70 48 6e 64 6c 3a | 0d 09 64 63 2e 6c 09 30 |papHndl:|..dc.l.0|
|00000460| 09 09 3b 20 48 61 6e 64 | 6c 65 20 74 6f 20 50 41 |..; Hand|le to PA|
|00000470| 50 20 6d 61 6e 61 67 65 | 72 20 72 65 73 6f 75 72 |P manage|r resour|
|00000480| 63 65 0d 70 61 70 50 74 | 72 3a 09 0d 09 64 63 2e |ce.papPt|r:...dc.|
|00000490| 6c 09 30 09 09 3b 20 50 | 6f 69 6e 74 73 20 74 6f |l.0..; P|oints to|
|000004a0| 20 6c 6f 63 6b 65 64 20 | 50 41 50 20 6d 61 6e 61 | locked |PAP mana|
|000004b0| 67 65 72 0d 65 6e 74 48 | 6e 64 6c 3a 0d 09 64 63 |ger.entH|ndl:..dc|
|000004c0| 2e 6c 09 30 09 09 3b 20 | 48 61 6e 64 6c 65 20 74 |.l.0..; |Handle t|
|000004d0| 6f 20 6c 6f 63 6b 65 64 | 20 65 6e 74 69 74 79 20 |o locked| entity |
|000004e0| 6e 61 6d 65 0d 0d 3b 0d | 3b 20 44 79 6e 61 6d 69 |name..;.|; Dynami|
|000004f0| 63 20 28 73 74 61 63 6b | 65 64 29 20 64 61 74 61 |c (stack|ed) data|
|00000500| 0d 3b 0d 0d 3b 0d 3b 20 | 4f 70 65 6e 20 50 41 50 |.;..;.; |Open PAP|
|00000510| 20 63 6f 6e 6e 65 63 74 | 69 6f 6e 0d 3b 0d 09 78 | connect|ion.;..x|
|00000520| 64 65 66 09 70 61 70 4f | 70 65 6e 0d 70 61 70 4f |def.papO|pen.papO|
|00000530| 70 65 6e 3a 0d 09 6d 6f | 76 65 2e 6c 09 70 61 70 |pen:..mo|ve.l.pap|
|00000540| 50 74 72 2c 61 30 0d 09 | 6a 6d 70 09 30 28 61 30 |Ptr,a0..|jmp.0(a0|
|00000550| 29 0d 09 0d 3b 0d 3b 20 | 52 65 63 65 69 76 65 20 |)...;.; |Receive |
|00000560| 64 61 74 61 20 66 72 6f | 6d 20 50 41 50 20 73 65 |data fro|m PAP se|
|00000570| 72 76 65 72 0d 3b 0d 09 | 78 64 65 66 09 70 61 70 |rver.;..|xdef.pap|
|00000580| 52 65 61 64 0d 70 61 70 | 52 65 61 64 3a 0d 09 6d |Read.pap|Read:..m|
|00000590| 6f 76 65 2e 6c 09 70 61 | 70 50 74 72 2c 61 30 0d |ove.l.pa|pPtr,a0.|
|000005a0| 09 6a 6d 70 09 34 28 61 | 30 29 0d 0d 3b 0d 3b 20 |.jmp.4(a|0)..;.; |
|000005b0| 53 65 6e 64 20 64 61 74 | 61 20 74 6f 20 50 41 50 |Send dat|a to PAP|
|000005c0| 20 73 65 72 76 65 72 0d | 3b 0d 09 78 64 65 66 09 | server.|;..xdef.|
|000005d0| 70 61 70 57 72 69 74 65 | 0d 70 61 70 57 72 69 74 |papWrite|.papWrit|
|000005e0| 65 3a 0d 09 6d 6f 76 65 | 2e 6c 09 70 61 70 50 74 |e:..move|.l.papPt|
|000005f0| 72 2c 61 30 0d 09 6a 6d | 70 09 38 28 61 30 29 0d |r,a0..jm|p.8(a0).|
|00000600| 0d 3b 0d 3b 20 47 65 74 | 20 50 41 50 20 73 65 72 |.;.; Get| PAP ser|
|00000610| 76 65 72 27 73 20 73 74 | 61 74 75 73 0d 3b 0d 09 |ver's st|atus.;..|
|00000620| 78 64 65 66 09 70 61 70 | 53 74 61 74 75 73 0d 70 |xdef.pap|Status.p|
|00000630| 61 70 53 74 61 74 75 73 | 3a 0d 09 6d 6f 76 65 2e |apStatus|:..move.|
|00000640| 6c 09 70 61 70 50 74 72 | 2c 61 30 0d 09 6a 6d 70 |l.papPtr|,a0..jmp|
|00000650| 09 31 32 28 61 30 29 0d | 0d 3b 0d 3b 20 43 6c 6f |.12(a0).|.;.; Clo|
|00000660| 73 65 20 50 41 50 20 63 | 6f 6e 6e 65 63 74 69 6f |se PAP c|onnectio|
|00000670| 6e 0d 3b 0d 09 78 64 65 | 66 09 70 61 70 43 6c 6f |n.;..xde|f.papClo|
|00000680| 73 65 0d 70 61 70 43 6c | 6f 73 65 3a 0d 09 6d 6f |se.papCl|ose:..mo|
|00000690| 76 65 2e 6c 09 70 61 70 | 50 74 72 2c 61 30 0d 09 |ve.l.pap|Ptr,a0..|
|000006a0| 6a 6d 70 09 31 36 28 61 | 30 29 0d 0d 3b 0d 3b 20 |jmp.16(a|0)..;.; |
|000006b0| 4c 6f 61 64 20 61 6e 64 | 20 6c 6f 63 6b 20 74 68 |Load and| lock th|
|000006c0| 65 20 50 41 50 20 6d 61 | 6e 61 67 65 72 0d 3b 0d |e PAP ma|nager.;.|
|000006d0| 3b 20 52 65 74 75 72 6e | 73 20 68 61 6e 64 6c 65 |; Return|s handle|
|000006e0| 20 74 6f 20 65 6e 74 69 | 74 79 20 6e 61 6d 65 0d | to enti|ty name.|
|000006f0| 3b 0d 09 78 64 65 66 09 | 70 61 70 4c 6f 61 64 0d |;..xdef.|papLoad.|
|00000700| 3b 0d 3b 20 53 74 61 63 | 6b 20 66 72 61 6d 65 20 |;.; Stac|k frame |
|00000710| 28 6c 6f 63 61 6c 20 61 | 75 74 6f 6d 61 74 69 63 |(local a|utomatic|
|00000720| 29 20 76 61 72 69 61 62 | 6c 65 73 0d 3b 0d 63 75 |) variab|les.;.cu|
|00000730| 72 56 6f 6c 09 09 65 71 | 75 09 2d 32 09 09 09 3b |rVol..eq|u.-2...;|
|00000740| 20 43 6c 69 65 6e 74 27 | 73 20 64 65 66 61 75 6c | Client'|s defaul|
|00000750| 74 20 64 69 72 2f 76 6f | 6c 20 73 61 76 65 64 20 |t dir/vo|l saved |
|00000760| 68 65 72 65 0d 4c 57 66 | 52 65 66 09 09 65 71 75 |here.LWf|Ref..equ|
|00000770| 09 2d 32 20 2b 20 63 75 | 72 56 6f 6c 09 09 3b 20 |.-2 + cu|rVol..; |
|00000780| 66 52 65 66 4e 75 6d 20 | 6f 66 20 27 4c 61 73 65 |fRefNum |of 'Lase|
|00000790| 72 57 72 69 74 65 72 27 | 20 66 69 6c 65 0d 69 6f |rWriter'| file.io|
|000007a0| 50 61 72 61 6d 09 09 65 | 71 75 09 2d 69 6f 46 51 |Param..e|qu.-ioFQ|
|000007b0| 65 6c 53 69 7a 65 20 2b | 20 4c 57 66 52 65 66 09 |elSize +| LWfRef.|
|000007c0| 3b 20 4d 46 53 2f 48 46 | 53 20 46 69 6c 65 20 49 |; MFS/HF|S File I|
|000007d0| 2f 4f 20 70 61 72 61 6d | 73 0d 69 6f 48 56 50 61 |/O param|s.ioHVPa|
|000007e0| 72 61 6d 09 65 71 75 09 | 2d 69 6f 48 56 51 45 6c |ram.equ.|-ioHVQEl|
|000007f0| 53 69 7a 65 20 2b 20 69 | 6f 50 61 72 61 6d 09 3b |Size + i|oParam.;|
|00000800| 20 48 46 53 20 56 6f 6c | 75 6d 65 20 49 6e 66 6f | HFS Vol|ume Info|
|00000810| 20 70 61 72 61 6d 73 0d | 66 72 61 6d 65 53 69 7a | params.|frameSiz|
|00000820| 65 09 65 71 75 09 69 6f | 48 56 50 61 72 61 6d 0d |e.equ.io|HVParam.|
|00000830| 0d 70 61 70 4c 6f 61 64 | 3a 0d 09 6c 69 6e 6b 09 |.papLoad|:..link.|
|00000840| 61 36 2c 23 66 72 61 6d | 65 53 69 7a 65 0d 09 6d |a6,#fram|eSize..m|
|00000850| 6f 76 65 09 61 32 2c 2d | 28 73 70 29 09 09 3b 20 |ove.a2,-|(sp)..; |
|00000860| 53 61 76 65 20 41 32 0d | 09 0d 09 6c 65 61 09 70 |Save A2.|...lea.p|
|00000870| 61 70 48 6e 64 6c 2c 61 | 30 09 09 3b 20 49 6e 69 |apHndl,a|0..; Ini|
|00000880| 74 69 61 6c 69 7a 65 20 | 74 68 65 73 65 20 66 6f |tialize |these fo|
|00000890| 72 20 65 72 72 6f 72 20 | 68 61 6e 64 6c 69 6e 67 |r error |handling|
|000008a0| 0d 09 63 6c 72 2e 6c 09 | 28 61 30 29 0d 09 6c 65 |..clr.l.|(a0)..le|
|000008b0| 61 09 70 61 70 50 74 72 | 2c 61 30 0d 09 63 6c 72 |a.papPtr|,a0..clr|
|000008c0| 2e 6c 09 28 61 30 29 0d | 09 6c 65 61 09 65 6e 74 |.l.(a0).|.lea.ent|
|000008d0| 48 6e 64 6c 2c 61 30 0d | 09 63 6c 72 2e 6c 09 28 |Hndl,a0.|.clr.l.(|
|000008e0| 61 30 29 0d 0d 09 3b 0d | 09 3b 20 54 68 69 73 20 |a0)...;.|.; This |
|000008f0| 6d 65 73 73 20 67 65 74 | 73 20 74 68 65 20 50 44 |mess get|s the PD|
|00000900| 45 46 2d 31 30 20 72 65 | 73 6f 75 72 63 65 20 66 |EF-10 re|source f|
|00000910| 72 6f 6d 20 74 68 65 20 | 4c 61 73 65 72 57 72 69 |rom the |LaserWri|
|00000920| 74 65 72 20 66 69 6c 65 | 0d 09 3b 20 6f 6e 20 74 |ter file|..; on t|
|00000930| 68 65 20 62 6f 6f 74 20 | 76 6f 6c 75 6d 65 20 77 |he boot |volume w|
|00000940| 69 74 68 6f 75 74 20 6d | 61 6b 69 6e 67 20 61 20 |ithout m|aking a |
|00000950| 70 65 72 6d 61 6e 65 6e | 74 20 63 68 61 6e 67 65 |permanen|t change|
|00000960| 20 69 6e 20 74 68 65 20 | 0d 09 3b 20 63 75 72 72 | in the |..; curr|
|00000970| 65 6e 74 20 64 65 66 61 | 75 6c 74 20 76 6f 6c 75 |ent defa|ult volu|
|00000980| 6d 65 2e 20 4e 6f 74 65 | 2c 20 48 46 53 20 76 6f |me. Note|, HFS vo|
|00000990| 6c 75 6d 65 73 20 72 65 | 71 75 69 72 65 20 6d 6f |lumes re|quire mo|
|000009a0| 72 65 20 77 6f 72 6b 0d | 09 3b 20 74 6f 20 66 69 |re work.|.; to fi|
|000009b0| 6e 64 20 74 68 65 20 66 | 69 6c 65 20 69 6e 20 74 |nd the f|ile in t|
|000009c0| 68 65 20 27 62 6c 65 73 | 73 65 64 27 20 66 6f 6c |he 'bles|sed' fol|
|000009d0| 64 65 72 2e 0d 09 3b 0d | 09 6c 65 61 09 69 6f 50 |der...;.|.lea.ioP|
|000009e0| 61 72 61 6d 28 61 36 29 | 2c 61 32 09 09 3b 20 61 |aram(a6)|,a2..; a|
|000009f0| 32 20 2d 3e 20 69 6f 50 | 61 72 61 6d 0d 09 63 6c |2 -> ioP|aram..cl|
|00000a00| 72 2e 6c 09 69 6f 43 6f | 6d 70 6c 65 74 69 6f 6e |r.l.ioCo|mpletion|
|00000a10| 28 61 32 29 0d 09 63 6c | 72 2e 6c 09 69 6f 4e 61 |(a2)..cl|r.l.ioNa|
|00000a20| 6d 65 50 74 72 28 61 32 | 29 0d 09 6d 6f 76 65 61 |mePtr(a2|)..movea|
|00000a30| 2e 6c 09 61 32 2c 61 30 | 09 09 09 3b 20 2d 3e 20 |.l.a2,a0|...; -> |
|00000a40| 69 6f 50 61 72 61 6d 73 | 0d 09 5f 47 65 74 56 6f |ioParams|.._GetVo|
|00000a50| 6c 09 09 09 09 3b 20 2a | 2a 4d 55 53 54 20 57 4f |l....; *|*MUST WO|
|00000a60| 52 4b 2a 2a 0d 09 6d 6f | 76 65 2e 77 09 69 6f 56 |RK**..mo|ve.w.ioV|
|00000a70| 52 65 66 4e 75 6d 28 61 | 32 29 2c 63 75 72 56 6f |RefNum(a|2),curVo|
|00000a80| 6c 28 61 36 29 3b 20 53 | 61 76 65 20 69 74 0d 09 |l(a6); S|ave it..|
|00000a90| 6d 6f 76 65 61 2e 6c 09 | 56 43 42 51 48 64 72 2b |movea.l.|VCBQHdr+|
|00000aa0| 32 2c 61 30 09 09 3b 20 | 42 6f 6f 74 20 76 6f 6c |2,a0..; |Boot vol|
|00000ab0| 75 6d 65 20 69 73 20 31 | 73 74 20 6f 6e 20 56 43 |ume is 1|st on VC|
|00000ac0| 42 20 71 75 65 75 65 0d | 09 6d 6f 76 65 2e 77 09 |B queue.|.move.w.|
|00000ad0| 76 63 62 56 52 65 66 4e | 75 6d 28 61 30 29 2c 69 |vcbVRefN|um(a0),i|
|00000ae0| 6f 56 52 65 66 4e 75 6d | 28 61 32 29 3b 20 42 6f |oVRefNum|(a2); Bo|
|00000af0| 6f 74 20 76 6f 6c 75 6d | 65 20 56 52 65 66 4e 75 |ot volum|e VRefNu|
|00000b00| 6d 0d 09 6d 6f 76 65 2e | 6c 09 61 32 2c 61 30 0d |m..move.|l.a2,a0.|
|00000b10| 09 5f 53 65 74 56 6f 6c | 09 09 09 09 3b 20 53 77 |._SetVol|....; Sw|
|00000b20| 69 74 63 68 20 74 6f 20 | 62 6f 6f 74 20 76 6f 6c |itch to |boot vol|
|00000b30| 75 6d 65 0d 09 62 6e 65 | 09 70 6c 45 72 72 09 09 |ume..bne|.plErr..|
|00000b40| 09 3b 20 28 68 75 68 3f | 29 0d 09 63 6c 72 2e 77 |.; (huh?|)..clr.w|
|00000b50| 09 2d 28 73 70 29 09 09 | 09 3b 20 4f 70 65 6e 20 |.-(sp)..|.; Open |
|00000b60| 74 68 65 20 27 4c 61 73 | 65 72 57 72 69 74 65 72 |the 'Las|erWriter|
|00000b70| 27 20 66 69 6c 65 0d 09 | 70 65 61 09 27 4c 61 73 |' file..|pea.'Las|
|00000b80| 65 72 57 72 69 74 65 72 | 27 0d 09 5f 4f 70 65 6e |erWriter|'.._Open|
|00000b90| 52 65 73 46 69 6c 65 0d | 09 6d 6f 76 65 2e 77 09 |ResFile.|.move.w.|
|00000ba0| 28 73 70 29 2b 2c 4c 57 | 66 52 65 66 28 61 36 29 |(sp)+,LW|fRef(a6)|
|00000bb0| 09 3b 20 72 65 66 4e 75 | 6d 20 6f 66 20 27 4c 61 |.; refNu|m of 'La|
|00000bc0| 73 65 72 57 72 69 74 65 | 72 27 0d 09 63 6d 70 2e |serWrite|r'..cmp.|
|00000bd0| 77 09 23 2d 31 2c 4c 57 | 66 52 65 66 28 61 36 29 |w.#-1,LW|fRef(a6)|
|00000be0| 09 09 3b 20 45 72 72 6f | 72 3f 0d 09 62 6e 65 09 |..; Erro|r?..bne.|
|00000bf0| 40 31 30 09 09 09 3b 20 | 28 6e 6f 70 65 29 0d 09 |@10...; |(nope)..|
|00000c00| 3b 0d 09 3b 20 46 61 69 | 6c 65 64 20 74 6f 20 66 |;..; Fai|led to f|
|00000c10| 69 6e 64 20 4c 61 73 65 | 72 57 72 69 74 65 72 2e |ind Lase|rWriter.|
|00000c20| 20 49 66 20 6f 6e 20 48 | 46 53 2c 20 77 65 20 63 | If on H|FS, we c|
|00000c30| 61 6e 20 74 72 79 20 74 | 6f 20 66 69 6e 64 20 69 |an try t|o find i|
|00000c40| 74 0d 09 3b 20 69 6e 20 | 74 68 65 20 53 79 73 74 |t..; in |the Syst|
|00000c50| 65 6d 20 46 6f 6c 64 65 | 72 20 28 27 62 6c 65 73 |em Folde|r ('bles|
|00000c60| 73 65 64 27 20 66 6f 6c | 64 65 72 29 2e 20 53 65 |sed' fol|der). Se|
|00000c70| 65 20 4d 61 63 69 6e 74 | 6f 73 68 20 54 65 63 68 |e Macint|osh Tech|
|00000c80| 0d 09 3b 20 4e 6f 74 65 | 20 23 36 37 20 22 46 69 |..; Note| #67 "Fi|
|00000c90| 6e 64 69 6e 67 20 74 68 | 65 20 42 6c 65 73 73 65 |nding th|e Blesse|
|00000ca0| 64 20 46 6f 6c 64 65 72 | 22 2e 0d 09 3b 0d 09 74 |d Folder|"...;..t|
|00000cb0| 73 74 2e 77 09 46 53 46 | 43 42 4c 65 6e 0d 09 62 |st.w.FSF|CBLen..b|
|00000cc0| 6d 69 09 70 6c 45 72 72 | 09 09 09 3b 20 28 6f 6f |mi.plErr|...; (oo|
|00000cd0| 70 73 2c 20 6e 6f 74 20 | 72 75 6e 6e 69 6e 67 20 |ps, not |running |
|00000ce0| 48 46 53 20 73 79 73 74 | 65 6d 29 0d 09 6c 65 61 |HFS syst|em)..lea|
|00000cf0| 09 69 6f 48 56 50 61 72 | 61 6d 28 61 36 29 2c 61 |.ioHVPar|am(a6),a|
|00000d00| 30 09 3b 20 61 30 20 2d | 3e 20 48 46 53 20 76 6f |0.; a0 -|> HFS vo|
|00000d10| 6c 20 69 6e 66 6f 20 70 | 61 72 61 6d 20 62 6c 6f |l info p|aram blo|
|00000d20| 63 6b 0d 09 63 6c 72 2e | 6c 09 69 6f 43 6f 6d 70 |ck..clr.|l.ioComp|
|00000d30| 6c 65 74 69 6f 6e 28 61 | 30 29 09 3b 20 53 65 74 |letion(a|0).; Set|
|00000d40| 20 69 74 20 75 70 20 66 | 6f 72 20 74 68 65 20 63 | it up f|or the c|
|00000d50| 61 6c 6c 0d 09 63 6c 72 | 2e 6c 09 69 6f 4e 61 6d |all..clr|.l.ioNam|
|00000d60| 65 50 74 72 28 61 30 29 | 0d 09 63 6c 72 2e 77 09 |ePtr(a0)|..clr.w.|
|00000d70| 69 6f 56 52 65 66 4e 75 | 6d 28 61 30 29 0d 09 63 |ioVRefNu|m(a0)..c|
|00000d80| 6c 72 2e 77 09 69 6f 56 | 6f 6c 49 6e 64 65 78 28 |lr.w.ioV|olIndex(|
|00000d90| 61 30 29 0d 09 5f 48 47 | 65 74 56 49 6e 66 6f 09 |a0).._HG|etVInfo.|
|00000da0| 09 09 3b 20 48 46 53 20 | 47 65 74 20 56 6f 6c 75 |..; HFS |Get Volu|
|00000db0| 6d 65 20 49 6e 66 6f 0d | 09 62 6e 65 09 70 6c 45 |me Info.|.bne.plE|
|00000dc0| 72 72 09 09 09 3b 20 28 | 68 75 68 3f 29 0d 09 6d |rr...; (|huh?)..m|
|00000dd0| 6f 76 65 2e 6c 09 69 6f | 56 46 6e 64 72 49 6e 66 |ove.l.io|VFndrInf|
|00000de0| 6f 28 61 30 29 2c 69 6f | 57 44 44 69 72 49 44 28 |o(a0),io|WDDirID(|
|00000df0| 61 32 29 20 3b 20 42 6c | 65 73 73 65 64 20 64 69 |a2) ; Bl|essed di|
|00000e00| 72 20 49 44 0d 09 62 65 | 71 09 70 6c 45 72 72 09 |r ID..be|q.plErr.|
|00000e10| 09 09 3b 20 28 6f 6f 70 | 73 21 29 0d 09 6d 6f 76 |..; (oop|s!)..mov|
|00000e20| 65 61 2e 6c 09 61 32 2c | 61 30 0d 09 5f 48 53 65 |ea.l.a2,|a0.._HSe|
|00000e30| 74 56 6f 6c 09 09 09 3b | 20 53 65 74 20 64 65 66 |tVol...;| Set def|
|00000e40| 61 75 6c 74 20 74 6f 20 | 62 6c 65 73 73 65 64 20 |ault to |blessed |
|00000e50| 66 6f 6c 64 65 72 0d 09 | 62 6e 65 09 70 6c 45 72 |folder..|bne.plEr|
|00000e60| 72 09 09 09 3b 20 28 68 | 75 68 3f 29 0d 09 63 6c |r...; (h|uh?)..cl|
|00000e70| 72 2e 77 09 2d 28 73 70 | 29 09 09 09 3b 20 4f 70 |r.w.-(sp|)...; Op|
|00000e80| 65 6e 20 74 68 65 20 27 | 4c 61 73 65 72 57 72 69 |en the '|LaserWri|
|00000e90| 74 65 72 27 20 66 69 6c | 65 0d 09 70 65 61 09 27 |ter' fil|e..pea.'|
|00000ea0| 4c 61 73 65 72 57 72 69 | 74 65 72 27 0d 09 5f 4f |LaserWri|ter'.._O|
|00000eb0| 70 65 6e 52 65 73 46 69 | 6c 65 0d 09 6d 6f 76 65 |penResFi|le..move|
|00000ec0| 2e 77 09 28 73 70 29 2b | 2c 4c 57 66 52 65 66 28 |.w.(sp)+|,LWfRef(|
|00000ed0| 61 36 29 09 3b 20 72 65 | 66 4e 75 6d 20 6f 66 20 |a6).; re|fNum of |
|00000ee0| 27 4c 61 73 65 72 57 72 | 69 74 65 72 27 0d 09 63 |'LaserWr|iter'..c|
|00000ef0| 6d 70 2e 77 09 23 2d 31 | 2c 4c 57 66 52 65 66 28 |mp.w.#-1|,LWfRef(|
|00000f00| 61 36 29 09 09 3b 20 45 | 72 72 6f 72 3f 0d 09 62 |a6)..; E|rror?..b|
|00000f10| 65 71 09 70 6c 45 72 72 | 09 09 09 3b 20 28 79 65 |eq.plErr|...; (ye|
|00000f20| 73 2c 20 67 69 76 65 20 | 75 70 29 0d 09 3b 0d 09 |s, give |up)..;..|
|00000f30| 3b 20 4e 6f 77 20 74 68 | 65 20 4c 61 73 65 72 57 |; Now th|e LaserW|
|00000f40| 72 69 74 65 72 20 72 65 | 73 6f 75 72 63 65 20 66 |riter re|source f|
|00000f50| 69 6c 65 20 69 73 20 6f | 70 65 6e 0d 09 3b 0d 40 |ile is o|pen..;.@|
|00000f60| 31 30 3a 09 0d 09 73 75 | 62 71 2e 6c 09 23 34 2c |10:...su|bq.l.#4,|
|00000f70| 73 70 0d 09 6d 6f 76 65 | 2e 6c 09 23 27 50 41 50 |sp..move|.l.#'PAP|
|00000f80| 41 27 2c 2d 28 73 70 29 | 09 09 3b 20 47 65 74 20 |A',-(sp)|..; Get |
|00000f90| 74 68 65 20 65 6e 74 69 | 74 79 20 6e 61 6d 65 20 |the enti|ty name |
|00000fa0| 73 74 72 69 6e 67 0d 09 | 6d 6f 76 65 2e 77 09 23 |string..|move.w.#|
|00000fb0| 24 45 30 30 30 2c 2d 28 | 73 70 29 0d 09 5f 47 65 |$E000,-(|sp).._Ge|
|00000fc0| 74 52 65 73 6f 75 72 63 | 65 0d 09 6c 65 61 09 65 |tResourc|e..lea.e|
|00000fd0| 6e 74 48 6e 64 6c 2c 61 | 30 0d 09 6d 6f 76 65 2e |ntHndl,a|0..move.|
|00000fe0| 6c 09 28 73 70 29 2b 2c | 28 61 30 29 09 09 3b 20 |l.(sp)+,|(a0)..; |
|00000ff0| 45 6e 74 69 74 79 20 68 | 61 6e 64 6c 65 0d 09 62 |Entity h|andle..b|
|00001000| 65 71 2e 73 09 70 6c 45 | 72 72 0d 0d 09 6d 6f 76 |eq.s.plE|rr...mov|
|00001010| 65 2e 6c 09 65 6e 74 48 | 6e 64 6c 2c 61 30 09 09 |e.l.entH|ndl,a0..|
|00001020| 3b 20 4c 6f 63 6b 20 65 | 6e 74 69 74 79 20 73 74 |; Lock e|ntity st|
|00001030| 72 69 6e 67 0d 09 5f 48 | 4c 6f 63 6b 0d 09 6d 6f |ring.._H|Lock..mo|
|00001040| 76 65 2e 6c 09 65 6e 74 | 48 6e 64 6c 2c 2d 28 73 |ve.l.ent|Hndl,-(s|
|00001050| 70 29 0d 09 5f 44 65 74 | 61 63 68 52 65 73 6f 75 |p).._Det|achResou|
|00001060| 72 63 65 09 09 09 3b 20 | 48 69 64 65 20 69 74 20 |rce...; |Hide it |
|00001070| 66 72 6f 6d 20 52 65 73 | 6f 75 72 63 65 20 4d 61 |from Res|ource Ma|
|00001080| 6e 61 67 65 72 20 2e 2e | 2e 0d 09 09 0d 09 73 75 |nager ..|......su|
|00001090| 62 71 2e 6c 09 23 34 2c | 73 70 09 09 09 3b 20 47 |bq.l.#4,|sp...; G|
|000010a0| 65 74 20 74 68 65 20 50 | 44 45 46 2d 31 30 20 72 |et the P|DEF-10 r|
|000010b0| 65 73 6f 75 72 63 65 20 | 28 50 41 50 20 6d 67 72 |esource |(PAP mgr|
|000010c0| 29 0d 09 6d 6f 76 65 2e | 6c 09 23 27 50 44 45 46 |)..move.|l.#'PDEF|
|000010d0| 27 2c 2d 28 73 70 29 0d | 09 6d 6f 76 65 2e 77 09 |',-(sp).|.move.w.|
|000010e0| 23 31 30 2c 2d 28 73 70 | 29 0d 09 5f 47 65 74 52 |#10,-(sp|).._GetR|
|000010f0| 65 73 6f 75 72 63 65 0d | 09 6c 65 61 09 70 61 70 |esource.|.lea.pap|
|00001100| 48 6e 64 6c 2c 61 30 09 | 09 3b 20 28 64 75 6d 62 |Hndl,a0.|.; (dumb|
|00001110| 2d 61 73 73 20 36 38 30 | 30 30 20 64 65 73 69 67 |-ass 680|00 desig|
|00001120| 6e 65 72 73 29 0d 09 6d | 6f 76 65 2e 6c 09 28 73 |ners)..m|ove.l.(s|
|00001130| 70 29 2b 2c 28 61 30 29 | 09 09 3b 20 48 61 6e 64 |p)+,(a0)|..; Hand|
|00001140| 6c 65 20 74 6f 20 50 41 | 50 20 6d 61 6e 61 67 65 |le to PA|P manage|
|00001150| 72 20 0d 09 62 65 71 2e | 73 09 70 6c 45 72 72 09 |r ..beq.|s.plErr.|
|00001160| 09 09 3b 20 28 6f 6f 70 | 73 29 0d 09 0d 09 6d 6f |..; (oop|s)....mo|
|00001170| 76 65 2e 6c 09 70 61 70 | 48 6e 64 6c 2c 61 30 0d |ve.l.pap|Hndl,a0.|
|00001180| 09 5f 48 4c 6f 63 6b 09 | 09 09 09 3b 20 4c 6f 63 |._HLock.|...; Loc|
|00001190| 6b 20 69 74 20 64 6f 77 | 6e 0d 09 6d 6f 76 65 2e |k it dow|n..move.|
|000011a0| 6c 09 70 61 70 48 6e 64 | 6c 2c 61 30 0d 09 6c 65 |l.papHnd|l,a0..le|
|000011b0| 61 09 70 61 70 50 74 72 | 2c 61 31 09 09 3b 20 28 |a.papPtr|,a1..; (|
|000011c0| 67 65 65 7a 21 29 0d 09 | 6d 6f 76 65 2e 6c 09 28 |geez!)..|move.l.(|
|000011d0| 61 30 29 2c 28 61 31 29 | 09 09 3b 20 53 61 76 65 |a0),(a1)|..; Save|
|000011e0| 20 70 6f 69 6e 74 65 72 | 20 74 6f 20 50 41 50 20 | pointer| to PAP |
|000011f0| 6d 61 6e 61 67 65 72 0d | 09 6d 6f 76 65 2e 6c 09 |manager.|.move.l.|
|00001200| 70 61 70 48 6e 64 6c 2c | 2d 28 73 70 29 0d 09 5f |papHndl,|-(sp).._|
|00001210| 44 65 74 61 63 68 52 65 | 73 6f 75 72 63 65 09 09 |DetachRe|source..|
|00001220| 09 3b 20 48 69 64 65 20 | 69 74 20 66 72 6f 6d 20 |.; Hide |it from |
|00001230| 52 65 73 6f 75 72 63 65 | 20 4d 61 6e 61 67 65 72 |Resource| Manager|
|00001240| 20 2e 2e 2e 0d 0d 09 6d | 6f 76 65 2e 77 09 2d 34 | ......m|ove.w.-4|
|00001250| 28 61 36 29 2c 2d 28 73 | 70 29 09 09 3b 20 27 4c |(a6),-(s|p)..; 'L|
|00001260| 61 73 65 72 57 72 69 74 | 65 72 27 20 72 65 66 4e |aserWrit|er' refN|
|00001270| 75 6d 0d 09 5f 43 6c 6f | 73 65 52 65 73 46 69 6c |um.._Clo|seResFil|
|00001280| 65 09 09 09 3b 20 43 6c | 6f 73 65 20 27 4c 61 73 |e...; Cl|ose 'Las|
|00001290| 65 72 57 72 69 74 65 72 | 27 0d 09 0d 09 6d 6f 76 |erWriter|'....mov|
|000012a0| 65 2e 6c 09 65 6e 74 48 | 6e 64 6c 2c 2d 28 73 70 |e.l.entH|ndl,-(sp|
|000012b0| 29 09 09 3b 20 52 65 74 | 75 72 6e 20 68 61 6e 64 |)..; Ret|urn hand|
|000012c0| 6c 65 20 74 6f 20 65 6e | 74 69 74 79 20 6e 61 6d |le to en|tity nam|
|000012d0| 65 0d 09 62 72 61 2e 73 | 09 70 6c 52 65 74 0d 0d |e..bra.s|.plRet..|
|000012e0| 70 6c 45 72 72 3a 09 63 | 6c 72 2e 6c 09 2d 28 73 |plErr:.c|lr.l.-(s|
|000012f0| 70 29 09 09 09 3b 20 52 | 65 74 75 72 6e 20 6e 69 |p)...; R|eturn ni|
|00001300| 6c 20 68 61 6e 64 6c 65 | 0d 0d 70 6c 52 65 74 3a |l handle|..plRet:|
|00001310| 09 6d 6f 76 65 2e 77 09 | 63 75 72 56 6f 6c 28 61 |.move.w.|curVol(a|
|00001320| 36 29 2c 69 6f 56 52 65 | 66 4e 75 6d 28 61 32 29 |6),ioVRe|fNum(a2)|
|00001330| 3b 20 47 65 74 20 6f 72 | 69 67 69 6e 61 6c 20 64 |; Get or|iginal d|
|00001340| 65 66 61 75 6c 74 20 76 | 6f 6c 75 6d 65 0d 09 6d |efault v|olume..m|
|00001350| 6f 76 65 2e 6c 09 61 32 | 2c 61 30 0d 09 74 73 74 |ove.l.a2|,a0..tst|
|00001360| 2e 77 09 46 53 46 43 42 | 4c 65 6e 09 09 3b 20 4d |.w.FSFCB|Len..; M|
|00001370| 46 53 20 6f 72 20 48 46 | 53 3f 0d 09 62 6d 69 2e |FS or HF|S?..bmi.|
|00001380| 73 09 40 31 30 09 09 09 | 3b 20 28 4d 46 53 29 0d |s.@10...|; (MFS).|
|00001390| 09 5f 48 53 65 74 56 6f | 6c 09 09 09 3b 20 52 65 |._HSetVo|l...; Re|
|000013a0| 73 74 6f 72 65 20 6f 72 | 69 67 69 6e 61 6c 20 64 |store or|iginal d|
|000013b0| 65 66 61 75 6c 74 20 76 | 6f 6c 2f 64 69 72 0d 09 |efault v|ol/dir..|
|000013c0| 62 72 61 2e 73 09 40 32 | 30 0d 40 31 30 3a 09 5f |bra.s.@2|0.@10:._|
|000013d0| 53 65 74 56 6f 6c 09 09 | 09 09 3b 20 52 65 73 74 |SetVol..|..; Rest|
|000013e0| 6f 72 65 20 6f 72 69 67 | 69 6e 61 6c 20 64 65 66 |ore orig|inal def|
|000013f0| 61 75 6c 74 20 76 6f 6c | 0d 40 32 30 3a 09 6d 6f |ault vol|.@20:.mo|
|00001400| 76 65 2e 6c 09 28 73 70 | 29 2b 2c 64 30 09 09 3b |ve.l.(sp|)+,d0..;|
|00001410| 20 52 65 73 74 6f 72 65 | 20 72 65 74 75 72 6e 20 | Restore| return |
|00001420| 76 61 6c 75 65 0d 09 6d | 6f 76 65 2e 6c 09 28 73 |value..m|ove.l.(s|
|00001430| 70 29 2b 2c 61 32 09 09 | 3b 20 52 65 73 74 6f 72 |p)+,a2..|; Restor|
|00001440| 65 20 61 32 0d 09 75 6e | 6c 6b 09 61 36 09 09 09 |e a2..un|lk.a6...|
|00001450| 3b 20 53 74 61 6e 64 61 | 72 64 20 50 61 73 63 61 |; Standa|rd Pasca|
|00001460| 6c 20 66 75 6e 63 74 69 | 6f 6e 20 72 65 74 75 72 |l functi|on retur|
|00001470| 6e 0d 09 6d 6f 76 65 2e | 6c 09 28 73 70 29 2b 2c |n..move.|l.(sp)+,|
|00001480| 61 30 09 09 3b 20 28 52 | 41 29 0d 09 3b 3b 3b 61 |a0..; (R|A)..;;;a|
|00001490| 64 64 71 09 23 30 2c 73 | 70 09 09 09 3b 20 28 6e |ddq.#0,s|p...; (n|
|000014a0| 6f 20 70 61 72 61 6d 65 | 74 65 72 73 29 0d 09 6d |o parame|ters)..m|
|000014b0| 6f 76 65 2e 6c 09 64 30 | 2c 28 73 70 29 09 09 09 |ove.l.d0|,(sp)...|
|000014c0| 3b 20 28 52 56 29 0d 09 | 6a 6d 70 09 28 61 30 29 |; (RV)..|jmp.(a0)|
|000014d0| 09 09 09 3b 20 52 65 74 | 75 72 6e 0d 09 0d 3b 0d |...; Ret|urn...;.|
|000014e0| 3b 20 55 6e 6c 6f 61 64 | 20 74 68 65 20 50 41 50 |; Unload| the PAP|
|000014f0| 20 6d 61 6e 61 67 65 72 | 2e 20 20 53 68 6f 75 6c | manager|.  Shoul|
|00001500| 64 20 62 65 20 63 61 6c | 6c 65 64 20 76 69 61 20 |d be cal|led via |
|00001510| 27 6e 65 65 64 47 6f 6f | 64 42 79 65 27 0d 3b 0d |'needGoo|dBye'.;.|
|00001520| 09 78 64 65 66 09 70 61 | 70 55 6e 6c 6f 61 64 0d |.xdef.pa|pUnload.|
|00001530| 70 61 70 55 6e 6c 6f 61 | 64 3a 0d 09 6c 69 6e 6b |papUnloa|d:..link|
|00001540| 09 61 36 2c 23 2d 32 0d | 09 63 6c 72 2e 77 09 2d |.a6,#-2.|.clr.w.-|
|00001550| 32 28 61 36 29 09 09 09 | 3b 20 4a 75 73 74 69 6e |2(a6)...|; Justin|
|00001560| 20 43 61 73 65 0d 09 6d | 6f 76 65 2e 6c 09 70 61 | Case..m|ove.l.pa|
|00001570| 70 50 74 72 2c 61 30 0d | 09 62 65 71 2e 73 09 40 |pPtr,a0.|.beq.s.@|
|00001580| 31 30 0d 09 73 75 62 71 | 2e 6c 09 23 32 2c 73 70 |10..subq|.l.#2,sp|
|00001590| 0d 09 6a 73 72 09 32 30 | 28 61 30 29 09 09 09 3b |..jsr.20|(a0)...;|
|000015a0| 20 49 6e 66 6f 72 6d 20 | 50 41 50 20 6d 61 6e 61 | Inform |PAP mana|
|000015b0| 67 65 72 20 0d 09 6d 6f | 76 65 2e 77 09 28 73 70 |ger ..mo|ve.w.(sp|
|000015c0| 29 2b 2c 2d 32 28 61 36 | 29 09 09 3b 20 53 61 76 |)+,-2(a6|)..; Sav|
|000015d0| 65 20 50 41 50 20 72 65 | 73 75 6c 74 0d 0d 40 31 |e PAP re|sult..@1|
|000015e0| 30 09 6d 6f 76 65 2e 6c | 09 65 6e 74 48 6e 64 6c |0.move.l|.entHndl|
|000015f0| 2c 61 30 0d 09 62 65 71 | 2e 73 09 40 32 30 0d 09 |,a0..beq|.s.@20..|
|00001600| 5f 48 55 6e 6c 6f 63 6b | 0d 09 6d 6f 76 65 2e 6c |_HUnlock|..move.l|
|00001610| 09 65 6e 74 48 6e 64 6c | 2c 61 30 0d 09 5f 44 69 |.entHndl|,a0.._Di|
|00001620| 73 70 6f 73 48 61 6e 64 | 6c 65 0d 0d 40 32 30 09 |sposHand|le..@20.|
|00001630| 6d 6f 76 65 2e 6c 09 70 | 61 70 48 6e 64 6c 2c 61 |move.l.p|apHndl,a|
|00001640| 30 0d 09 62 65 71 2e 73 | 09 40 33 30 0d 09 5f 48 |0..beq.s|.@30.._H|
|00001650| 55 6e 6c 6f 63 6b 0d 09 | 6d 6f 76 65 2e 6c 09 70 |Unlock..|move.l.p|
|00001660| 61 70 48 6e 64 6c 2c 61 | 30 0d 09 5f 44 69 73 70 |apHndl,a|0.._Disp|
|00001670| 6f 73 48 61 6e 64 6c 65 | 0d 0d 40 33 30 09 6d 6f |osHandle|..@30.mo|
|00001680| 76 65 09 2d 32 28 61 36 | 29 2c 64 30 0d 09 75 6e |ve.-2(a6|),d0..un|
|00001690| 6c 6b 09 61 36 09 09 09 | 3b 20 53 74 61 6e 64 61 |lk.a6...|; Standa|
|000016a0| 72 64 20 50 61 73 63 61 | 6c 20 65 78 69 74 0d 09 |rd Pasca|l exit..|
|000016b0| 6d 6f 76 65 2e 6c 09 28 | 73 70 29 2b 2c 61 30 0d |move.l.(|sp)+,a0.|
|000016c0| 09 3b 3b 3b 61 64 64 71 | 09 23 30 2c 73 70 09 09 |.;;;addq|.#0,sp..|
|000016d0| 09 3b 20 28 6e 6f 20 70 | 61 72 61 6d 65 74 65 72 |.; (no p|arameter|
|000016e0| 73 29 0d 09 6d 6f 76 65 | 2e 77 09 64 30 2c 28 73 |s)..move|.w.d0,(s|
|000016f0| 70 29 0d 09 6a 6d 70 09 | 28 61 30 29 0d 09 0d 09 |p)..jmp.|(a0)....|
|00001700| 65 6e 64 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |end.....|........|
|00001710| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001730| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001740| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001750| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001770| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001780| 00 00 01 00 00 00 01 36 | 00 00 00 36 00 00 00 46 |.......6|...6...F|
|00001790| 20 61 6e 20 65 6c 65 67 | 61 6e 74 20 73 6f 6c 75 | an eleg|ant solu|
|000017a0| 74 69 6f 6e 20 28 42 6f | 62 20 44 65 6e 6e 79 29 |tion (Bo|b Denny)|
|000017b0| 0c 50 41 50 49 6e 74 66 | 63 2e 61 73 6d 66 02 00 |.PAPIntf|c.asmf..|
|000017c0| 00 00 54 45 58 54 4b 41 | 48 4c 01 00 00 00 00 4b |..TEXTKA|HL.....K|
|000017d0| 00 00 54 45 58 54 4b 41 | 48 4c 01 00 00 00 00 4b |..TEXTKA|HL.....K|
|000017e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000017f0| 00 00 9b 39 45 21 00 00 | 16 83 00 00 01 7c 43 68 |...9E!..|.....|Ch|
|00001800| 61 72 20 5f 20 43 68 61 | 72 61 63 74 65 72 20 74 |ar _ Cha|racter t|
|00001810| 61 62 2e 0d 09 5b 28 69 | 20 5f 20 69 2b 31 29 20 |ab...[(i| _ i+1) |
|00001820| 3c 3d 20 65 6e 64 5d 20 | 77 68 69 6c 65 54 72 75 |<= end] |whileTru|
|00001830| 65 3a 0d 09 09 22 53 68 | 6f 75 6c 64 20 61 64 64 |e:..."Sh|ould add|
|00001840| 20 74 61 62 20 63 6f 6e | 74 72 6f 6c 20 28 55 47 | tab con|trol (UG|
|00001850| 48 21 21 29 20 61 6e 64 | 20 65 73 63 61 70 69 6e |H!!) and| escapin|
|00001860| 67 20 6f 66 20 6f 74 68 | 65 72 20 43 2d 6c 69 6b |g of oth|er C-lik|
|00001870| 65 20 74 68 69 6e 67 69 | 65 73 22 0d 09 09 5b 63 |e thingi|es"...[c|
|00001880| 00 00 00 2a 00 0a 07 43 | 6f 75 72 69 65 72 00 00 |...*...C|ourier..|
|00001890| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018b0| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 36 00 00 |........|.....6..|
|000018c0| 00 36 00 00 00 46 00 00 | ec 18 00 3e 00 00 00 1c |.6...F..|...>....|
|000018d0| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|000018e0| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 03 ec ff ff 00 00 00 2e | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+